REXX怎么保存"Find ALL"的结果

最近的项目经常跟MQ打交道,将输入数据填在一个dataset里面提交给MQ解析，字段之间用逗号隔开。所以在测试MQ接口的时候会经常一边对着FSD文档，一边数dataset里面的逗号个数的情况。数多了就烦了。其实到今天才想起来可以用一个"FIND ALL"的ISPF命令。

FIND ',' ALL

这样，逗号的个数就不用数了，直接显示在屏幕右上角。
既然这样，利用REXX应该可以保存这个“FIND ',' ALL'的结果。 研究了一下，可以这样:
编辑 IBMUSER.REXX.EXEC(CHECK)这个member,输入如下的macro：

1  ADDRESS  ISPEXEC                       
2  "ISREDIT SEEK ALL ','"                 
3  "ISREDIT (COUNT) = SEEK_COUNTS"        
4  SAY "Comma number: "!! COUNT !! "'!'"  
5 EXIT 0 

打开MQ的DATASET，比如：

IBMUSER.PROJ.MQ.INPUT.SAMPLE

在command栏上面输入CHECK即可运行，不过也就比输入“FIND ',' ALL"来得方便一点点。